home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm1.d64 / ls briefs (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  952b  |  35 lines
  1. 10 POKE53281,0:POKE53280,0:PRINT"[147][159]":POKE56,160:CLR
  2. 20 FORI=1TO4:READM$(I),N$(I):NEXT
  3. 30 DATA"   [198]EEDBACK [205]ACHINE   ",MACHINE
  4. 34 DATA"  [212]EXT [208]RINTER 1990   ",TEXT PRINTER
  5. 36 DATA"    [204][207][193][196][211][212][193][210] [198]ORMS    ",LOADSTAR FORMS
  6. 38 DATA"  [210]ETURN TO [204][207][193][196][211][212][193][210]  ",HELLO CONNECT
  7. 40 PRINT"     [204] [207] [193] [196] [211] [212] [193] [210]    [194] [210] [201] [197] [198] [211]"
  8. 45 PRINT"[154]     [193] [195]OLLECTION OF [200]ANDY [208]ROGRAMS
  9. 47 [153]"     FOR THE ASCRIENDLY (null)(null)ATNSTR$(null)(null)ATN(null) (null)SER"
  10. 50 [153][163]6)"SYSORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  11. 60 [129]I[178]0[164]5:[153][163]6)"(null)"[163]33)"(null)":[130]
  12. 70 [153][163]6)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  13. 80 [151]214,22:[153]:[153]"FOR    (null)SE LEN(null)(null)(null) (null)(null)/STR$(null)(null)(null)FOR AND THEN (null)VAL(null)(null)(null)(null)"
  14. 90 [151]214,7:[153]""
  15. 100 [129]I[178]1[164]5:[153][163]9)M$(I):[130]
  16. 110 H[178]6:K[178]1
  17. 120 [151]214,H[170]K:[153]
  18. 130 [153][163]9)"OPEN"M$(K)"ON"
  19. 140 [151]198,0
  20. 150 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[167]150
  21. 160 [139]A$[178][199](13)[167]200
  22. 170 [153][163]9)""M$(K)
  23. 180 [139]A$[179][177]"ON"[167]190
  24. 185 K[178]K[171]1:[139]K[179]1[167]K[178]4
  25. 187 [137]120
  26. 190 K[178]K[170]1:[139]K[177]4[167]K[178]1
  27. 195 [137]120
  28. 200 [153][163]9)""M$(K)
  29. 210 [151]214,14:[153]
  30. 220 [153]"STOPLOAD"[199](34)N$(K)[199](34)",8"
  31. 230 [153]"RUN"
  32. 240 [151]214,12:[153]
  33. 250 [151]631,13:[151]632,13:[151]198,2:[128]
  34. 10000 [159]15,8,15,"S0:LS BRIEFS":[160]15:[148]"LS BRIEFS",8:[128]
  35.